home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010b.d64 / vier gewinnt (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 PRINT"[147]"TAB(28)"VIER GEWINNT":FORB=1TO7:FORA=1TO6:PRINT" [213][192][201] ";:NEXT:PRINT
  2. 2 FORA=1TO6:PRINT" [194] [194] ";:NEXT:PRINT:FORA=1TO6:PRINT" [202][192][203] ";:NEXT:PRINT:NEXT
  3. 3 C$="        ":A$=" TO MOVE ":R$=C$+" RED"+A$:W$=C$+"WHITE"+A$:C=2:PRINTR$
  4. 4 POKE204,0:PRINT"";:A=0:POKE53280,0:POKE53281,0:DATA0,1,-1,-1,-1,0,1,-1
  5. 5 POKE198,0:WAIT198,1:GETA$:IFA$=" "THENIFA<5THENPRINT" ";:A=A+1:GOTO5
  6. 6 X=7:IFA$<>CHR$(13)THENA=0:POKE204,0:PRINT" ";:GOTO5:(W)BY LUDGER BAEUMER
  7. 7 Q=1026+40*(X*3+1)+(A*5):IFX>1THENIFPEEK(Q)<>32THENX=X-1:GOTO7:CI&VA
  8. 8 IFPEEK(Q)<>32THEN5:DATA2,45,25,2,113,25,2,45,25,2,113,25,2,138,25,2,180,80
  9. 9 D=D+1:POKEQ+54272,C:POKEQ,160+ABS(C=2)*64:GOSUB13:DATA0,0,180
  10. 10 IFC=2THENPRINTW$:C=1:GOTO4
  11. 11 IFD<42THENGOTO3
  12. 12 PRINT"[147]NOBODY WINS !!![146][157][157][157]PRESS SPACE !!! ";:POKE198,0:WAIT198,1:RUN
  13. 13 RESTORE:S=X:T=A:FORI=1TO4:X=S:A=T:READG,H:Y=0:P=0
  14. 14 X=X+G:A=A+H:IFPEEK(1026+40*(X*3+1)+(A*5))=160+ABS(C=2)*64THENP=P+1:GOTO14
  15. 15 X=S:A=T
  16. 16 A=A-H:X=X-G:IFPEEK(1026+40*(X*3+1)+(A*5))=160+ABS(C=2)*64THENP=P+1:GOTO16
  17. 17 IFP<3THENNEXT:RETURN:LUI
  18. 18 POKE646,C:PRINT" ";:PRINTTAB(12);" WINS !!! ":RESTORE:FORA=1TO8:READX:NEXT
  19. 19 S=54272:POKES+24,15:POKES+13,240:FORT=1TO7:READA,B,C:POKES+8,B:POKES+7,A
  20. 20 POKE204,1:PRINT" ":POKES+11,17:FORD=1TOC:POKE53280,D:NEXT:POKES+11,0:NEXT:RUN
  21.